home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_A.d64 / checksummer vc20 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  35 lines
  1. 10 rem***************
  2. 11 rem*             *
  3. 12 rem* checksummer *
  4. 13 rem*             *
  5. 14 rem* v3     vc20 *
  6. 15 rem*             *
  7. 16 rem*   written   *
  8. 17 rem* maerz  1985 *
  9. 18 rem*      by     *
  10. 19 rem*f. lonczewski*
  11. 20 rem***************
  12. 21 print"[147] checksummer v3 vc-20[146]"
  13. 22 print"einen moment, bitte..."
  14. 23 fori=827to1019:reada:pokei,a
  15. 24 ps=ps+a+1:nexti
  16. 25 ifps<>24464thenprint"pruefsummenfehler !":end
  17. 26 sys981:print"checksummer aktiviert."
  18. 27 print"an :sys981"
  19. 28 print"aus:sys58459, bei cas-    sette zusaetzlich     run/stop & restore"
  20. 29 print"bei aktiviertem check-summer kein";
  21. 30 print" cassetten-betrieb (load, save)  erlaubt!":new
  22. 31 data32,95,3,134,122,132,123,32,115,0,170,240,243,162,255
  23. 32 data134,58,144,10,162,0,134,255,32,121,197,76,225,199,162
  24. 33 data1,134,255,76,156,196,166,255,224,1,240,3,76,96,197
  25. 34 data160,2,169,0,170,133,254,177,95,240,40,201,32,208,3
  26. 35 data200,208,245,133,253,138,41,7,170,240,14,72,165,253,24
  27. 36 data42,105,0,202,208,249,133,253,104,170,232,165,253,24,101
  28. 37 data254,133,254,76,119,3,192,4,48,219,198,214,165,214,72
  29. 38 data162,3,169,32,157,1,4,189,209,3,32,210,255,202,16
  30. 39 data242,166,254,169,0,32,205,221,169,62,32,210,255,104,133
  31. 40 data214,32,135,229,169,141,32,210,255,162,0,134,255,240,148
  32. 41 data9,60,18,19,169,59,141,2,3,169,3,141,3,3,165
  33. 42 data186,201,1,208,16,169,116,141,48,3,141,50,3,169,196
  34. 43 data141,49,3,141,51,3,173,136,2,141,170,3,96
  35.